home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs47.d81 / 2400.sda / CALIBRATE.ML < prev    next >
Text File  |  2009-10-10  |  2KB  |  52 lines

  1. 8000  ;"CALIBRATE.ML"
  2. 8010  *       =$3000         ;12288
  3. 8020  ML      LDX #$02       ;TURN ON PORT
  4. 8030          JSR $FFC6      ;(NOW NCHKIN)
  5. 8040          JSR SETIRQ     ;SET UP "MODEM"
  6. 8050  GETCHR  JSR $FFE4      ;GETIN LOOP
  7. 8060          CMP #$55
  8. 8070          BEQ GETCHR     ;$55 IS OK
  9. 8080          JSR $FFB7
  10. 8090          BNE GETCHR     ;BUFFER EMPTY OK
  11. 8100          LDA #$2A       ;ELSE PRINT "*"
  12. 8110          JSR $FFD2
  13. 8120          JMP GETCHR
  14. 8130  IRQ     LDA #$FF       ;OUTPUT BYTE TO
  15. 8140          STA $DC0C      ;  SERIAL PORT
  16. 8150          LDA $DC0D      ;CLEAR IRQ
  17. 8160          JMP ($0256)    ;"RI" RETURN
  18. 8170  SETIRQ  SEI
  19. 8180          LDX $FB        ;"CN" MODEM SPEED
  20. 8190          LDY $FC
  21. 8200          LDA #$00
  22. 8210          STA $D01A      ;RASTER IRQ OFF
  23. 8220          STA $DC0F      ;STOP TIMER B
  24. 8230          LDA #$7F
  25. 8240          STA $DC0D      ;NMI DISABLED
  26. 8250          STA $D019      ;CLR RASTER IRQ
  27. 8260          STX $DC04      ;CNT MODEM USES
  28. 8270          STY $DC05      ;  TIMER A
  29. 8280          LDA #$51       ;SERIAL=OUTPUT,
  30. 8290          STA $DC0E      ;  TIMER A ON
  31. 8300          LDY #$FF
  32. 8310          STY $DC0C      ;START 1ST BYTE
  33. 8320          LDX #$05       ;WAIT A FEW BITS
  34. 8330  AGAIN   LDA $DC0D
  35. 8340          AND #$01
  36. 8350          BEQ AGAIN
  37. 8360          DEX
  38. 8370          BNE AGAIN
  39. 8380          STY $DC0C      ;THEN 2ND BYTE
  40. 8390          LDA #<IRQ      ;IRQ WILL KEEP
  41. 8400          STA $0314      ;  SP ONE BYTE
  42. 8410          LDA #>IRQ      ;  AHEAD.
  43. 8420          STA $0315
  44. 8430          LDA #$88       ;ENABLE SP IRQ
  45. 8440          STA $DC0D
  46. 8450          CLI
  47. 8460  BLANK   RTS            ;OR NOP (ML+107)
  48. 8470          LDA $D011      ;BLANK 40 SCREEN
  49. 8480          AND #$EF       ;(TURNS OFF DMA)
  50. 8490          STA $D011
  51. 8500          RTS            ;ML+116
  52.